#si pas le même redpertoire mettre -I a l'appelle de perl suivi du repertoire avec les packages
use fcn_calc_simil;
use strict;
use warnings;

sub calcul_similariteDocumentsToCorpus { 
	#le dossier décrivant les poids
	opendir(DIR, "$_[1]") || die "Impossible d'ouvrir le dossier de corpus $_[1]\n";
	my @files = grep { /.poids$/ } readdir(DIR);
	closedir DIR;

	my %final = ();
	for my $file (@files) {
		$final{$file}=fcn_calc_simil::calcul_similariteDocuments($_[0],$_[1]."/".$file);
	}	

#	open (OUT, ">./corpus_poids-lemmes/$_[0].poids") || die $!;
	for my $k(sort { $final{$b} cmp $final{$a} } keys(%final)){
		print "$k\t$final{$k}\n";
	}
#	close OUT;
}

&calcul_similariteDocumentsToCorpus("./corpus_poids-lemmes/texte.95-100.txt.txt.lemmes.poids","./corpus_poids-lemmes/");
